home *** CD-ROM | disk | FTP | other *** search
-
-
-
- ssssccccfffffffftttt3333dddduuuuiiii,,,,ddddzzzzfffffffftttt3333dddduuuuiiii((((3333FFFF)))) ssssccccfffffffftttt3333dddduuuuiiii,,,,ddddzzzzfffffffftttt3333dddduuuuiiii((((3333FFFF))))
-
-
-
- NNNNAAAAMMMMEEEE
- ssssccccfffffffftttt3333dddduuuuiiii,,,, ddddzzzzfffffffftttt3333dddduuuuiiii ---- initialize the coefficient array for real-to-
- complex 3D FFT modules.
-
- SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
- _F_O_R_T_R_A_N _S_P_E_C_I_F_I_C_A_T_I_O_N
- ssssuuuubbbbrrrroooouuuuttttiiiinnnneeee SSSSCCCCFFFFFFFFTTTT3333DDDDUUUUIIII(((( nnnn1111,,,, nnnn2222,,,, nnnn3333,,,, ccccooooeeeeffffffff ))))
- iiiinnnntttteeeeggggeeeerrrr nnnn1111,,,, nnnn2222,,,, nnnn3333
- rrrreeeeaaaallll ccccooooeeeeffffffff((((((((nnnn1111++++11115555)))) ++++ 2222****((((nnnn2222++++11115555)))) ++++ 2222****((((nnnn3333++++11115555))))))))
-
- ssssuuuubbbbrrrroooouuuuttttiiiinnnneeee DDDDZZZZFFFFFFFFTTTT3333DDDDUUUUIIII(((( nnnn1111,,,, nnnn2222,,,, nnnn3333,,,, ccccooooeeeeffffffff ))))
- iiiinnnntttteeeeggggeeeerrrr nnnn1111,,,, nnnn2222,,,, nnnn3333
- rrrreeeeaaaallll****8888 ccccooooeeeeffffffff((((((((nnnn1111++++11115555)))) ++++ 2222****((((nnnn2222++++11115555)))) ++++ 2222****((((nnnn3333++++11115555))))))))
-
- _C _S_P_E_C_I_F_I_C_A_T_I_O_N
- ####iiiinnnncccclllluuuuddddeeee <<<<fffffffftttt....hhhh>>>>
- ffffllllooooaaaatttt ****ssssccccfffffffftttt3333dddduuuuiiii(((( iiiinnnntttt nnnn1111,,,, iiiinnnntttt nnnn2222,,,, nnnn3333,,,, ffffllllooooaaaatttt ****ccccooooeeeeffffffff))));;;;
-
- ddddoooouuuubbbblllleeee ****ddddzzzzfffffffftttt3333dddduuuuiiii(((( iiiinnnntttt nnnn1111,,,, iiiinnnntttt nnnn2222,,,, nnnn3333,,,, ddddoooouuuubbbblllleeee ****ccccooooeeeeffffffff))));;;;
-
-
- DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
- Initialize, the coefficient array which is used in the 3D FFT modules.
- This array contains the different twiddle factors and the factorization
- of N1, N2 and N3 into prime numbers.
- As the FFT modules scfft3d or dzfft3d only read the _c_o_e_f_f array, it may
- be reused as many times as necessary once it has been initialized.
-
- In C, if _p_t_r is NULL, _s_c_f_f_t_3_d_u_i or _d_z_f_f_t_3_d_u_i returns a pointer to an
- allocated buffer.
-
- SCFFT3DUI should be used to initialize the coefficient array before any
- call to SCFFT3DU
- DZFFT3DUI should be used to initialize the coefficient array before any
- call to DZFFT3DU
-
- PPPPAAAARRRRAAAAMMMMEEEETTTTEEEERRRRSSSS
- NNNN1111 ---- Integer. Specifies the size of the first dimension of the 3D
- sequence to be transformed. Unchanged on exit.
-
- NNNN2222 ---- Integer. Specifies the size of the second dimension of the 3D
- sequence to be transformed. Unchanged on exit.
-
- NNNN3333 ---- Integer. Specifies the size of the third dimension of the 3D
- sequence to be transformed. Unchanged on exit.
-
- CCCCOOOOEEEEFFFFFFFF ---- Array (C or Fortran) or NULL pointer(C).
-
- EEEExxxxaaaammmmpppplllleeee ooooffff CCCCaaaalllllllliiiinnnngggg SSSSeeeeqqqquuuueeeennnncccceeee
- Initializing a coefficient array for real-to-complex FFTs of size 200 x
- 300 x 125.
-
-
-
-
- PPPPaaaaggggeeee 1111
-
-
-
-
-
-
- ssssccccfffffffftttt3333dddduuuuiiii,,,,ddddzzzzfffffffftttt3333dddduuuuiiii((((3333FFFF)))) ssssccccfffffffftttt3333dddduuuuiiii,,,,ddddzzzzfffffffftttt3333dddduuuuiiii((((3333FFFF))))
-
-
-
- _F_o_r_t_r_a_n :
- real coeff((200+15)+2*(300+15)+2*(125+15))
- call scfft3dui( 200, 300, 125, coeff)
-
- _C :
- #include <fft.h>
- float *coeff;
- coeff = scfft3dui( 200, 300, 125, NULL);
-
- SSSSEEEEEEEE AAAALLLLSSSSOOOO
- fft, scfft3du, dzfft3du
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- PPPPaaaaggggeeee 2222
-
-
-
-